Sub comprueba(patron As String, ParamArray cadenas() As Variant)
    Dim cadena As Variant
    Dim res As String
    For Each cadena In cadenas
        If cadena Like patron Then res = "" Else res = " NO"
        Debug.Print "Patrn (" & patron & _
        ") Cadena (" & cadena & ")" & res & " es vlida."
        
        Debug.Print "Patrn (" & patron & ") Cadena (" & cadena & ")" & res & " es vlida."
        
    Next cadena
End Sub
